home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
autose1g
/
frmlands.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1999-06-24
|
31KB
|
985 lines
VERSION 5.00
Begin VB.Form frmLandscape
BorderStyle = 0 'None
Caption = "Landscape - landing, attacking"
ClientHeight = 4170
ClientLeft = 1050
ClientTop = 1485
ClientWidth = 7545
ControlBox = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
KeyPreview = -1 'True
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 4170
ScaleWidth = 7545
ShowInTaskbar = 0 'False
Begin VB.PictureBox picToolTip
Appearance = 0 'Flat
BackColor = &H0080FFFF&
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 210
Left = 945
ScaleHeight = 180
ScaleWidth = 975
TabIndex = 1
Top = 1455
Visible = 0 'False
Width = 1005
End
Begin VB.Timer tmrToolTips
Enabled = 0 'False
Interval = 350
Left = 285
Top = 1335
End
Begin VB.Timer tmrFire
Enabled = 0 'False
Interval = 150
Left = 6825
Top = 2640
End
Begin VB.Timer Timer
Interval = 1500
Left = 1290
Top = 375
End
Begin VB.CommandButton cmdOK
Caption = "&OK"
Default = -1 'True
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Left = 6120
TabIndex = 0
Top = 3630
Visible = 0 'False
Width = 1155
End
Begin VB.Image imgWreckedJammer
Height = 555
Left = 6660
Picture = "FRMLANDS.frx":0000
Stretch = -1 'True
Top = 1455
Visible = 0 'False
Width = 585
End
Begin VB.Image Image5
Height = 15
Left = 2820
Top = 2235
Width = 30
End
Begin VB.Image Image2
Height = 4200
Left = 7350
Picture = "FRMLANDS.frx":08CA
Stretch = -1 'True
Top = 0
Width = 225
End
Begin VB.Image imgMissiles2
Height = 600
Left = 4980
Picture = "FRMLANDS.frx":41EC
Stretch = -1 'True
Top = 3285
Visible = 0 'False
Width = 615
End
Begin VB.Image Image4
Height = 195
Left = 165
Picture = "FRMLANDS.frx":50B6
Stretch = -1 'True
Top = 0
Width = 7290
End
Begin VB.Image Image3
Height = 180
Left = 195
Picture = "FRMLANDS.frx":9388
Stretch = -1 'True
Top = 4005
Width = 7290
End
Begin VB.Image Image1
Height = 4170
Left = 0
Picture = "FRMLANDS.frx":D65A
Stretch = -1 'True
Top = 0
Width = 210
End
Begin VB.Image imgFire
Height = 480
Index = 2
Left = 6780
Picture = "FRMLANDS.frx":10F7C
Top = 2115
Visible = 0 'False
Width = 480
End
Begin VB.Image imgFire
Height = 480
Index = 1
Left = 6405
Picture = "FRMLANDS.frx":11846
Top = 2595
Visible = 0 'False
Width = 480
End
Begin VB.Image imgFire
Height = 480
Index = 0
Left = 6780
Picture = "FRMLANDS.frx":12110
Top = 3045
Visible = 0 'False
Width = 480
End
Begin VB.Image imgScannerFire
Height = 480
Left = 1860
Picture = "FRMLANDS.frx":129DA
Top = 2160
Visible = 0 'False
Width = 480
End
Begin VB.Image imgMissileFire
Height = 480
Left = 4965
Picture = "FRMLANDS.frx":132A4
Top = 2685
Visible = 0 'False
Width = 480
End
Begin VB.Image imgMech
Height = 465
Index = 7
Left = 3120
Picture = "FRMLANDS.frx":13B6E
Stretch = -1 'True
Top = 3480
Visible = 0 'False
Width = 435
End
Begin VB.Image imgMech
Height = 465
Index = 6
Left = 2670
Picture = "FRMLANDS.frx":14438
Stretch = -1 'True
Top = 3480
Visible = 0 'False
Width = 435
End
Begin VB.Image imgMech
Height = 465
Index = 5
Left = 2265
Picture = "FRMLANDS.frx":14D02
Stretch = -1 'True
Top = 3480
Visible = 0 'False
Width = 435
End
Begin VB.Image imgMech
Height = 465
Index = 4
Left = 1860
Picture = "FRMLANDS.frx":155CC
Stretch = -1 'True
Top = 3480
Visible = 0 'False
Width = 435
End
Begin VB.Image imgMech
Height = 465
Index = 3
Left = 1455
Picture = "FRMLANDS.frx":15E96
Stretch = -1 'True
Top = 3480
Visible = 0 'False
Width = 435
End
Begin VB.Image imgMech
Height = 465
Index = 2
Left = 1050
Picture = "FRMLANDS.frx":16760
Stretch = -1 'True
Top = 3480
Visible = 0 'False
Width = 435
End
Begin VB.Image imgMech
Height = 465
Index = 1
Left = 660
Picture = "FRMLANDS.frx":1702A
Stretch = -1 'True
Top = 3480
Visible = 0 'False
Width = 435
End
Begin VB.Image imgMech
Height = 465
Index = 0
Left = 270
Picture = "FRMLANDS.frx":178F4
Stretch = -1 'True
Top = 3495
Visible = 0 'False
Width = 435
End
Begin VB.Image imgTroop
Height = 315
Index = 9
Left = 3270
Picture = "FRMLANDS.frx":18